CD Fun House 7/CD FunHouse 7 For The Macintosh (Wayzata)(1992).iso/• Adventureland •/• Adventures •/Battle of Britain 1 •••••/Battle of Britain 1 еееее/card_5143.txt

Text File | 1990-08-26 | 44KB | 2,209 lines

-- card: 5143 from stack: in
-- bmap block id: 9269
-- flags: 4000
-- background id: 2789
-- name: D
----- HyperTalk script -----
on openCard

  global justVisiting,BBDATE,reset,bbtime,landtime
  put 4 into standby
  put 7 into ordered
  put 8 into landed
  repeat
    if hilite of button ordered is true then
      set hilite of button ordered to false
      set hilite of button landed to true
    end if
    if hilite of button landed is true then
      IF LANDTIME <BBTIME THEN
        SET HILITE OF BUTTON LANDED TO FALSE          --new
        set hilite of button standby to true

      end if
    END IF
    add 7 to standby
    add 7 to ordered
    add 7 to landed
    if landed >43 then           --CHANGE
      exit repeat
    end if
  end repeat

  if justVisiting is empty then
    exit openCard
  end if
  put 2 into released
  put 3 into avail
  put 5 into patrol
  HIDE CARD FIELD "SHUTDOWN"
  repeat 6 TIMES
    if hilite of button patrol is true then
      send "go" to button patrol
    else
      if hilite of button released is true then
        send "go" to button released
      else
        send "go" to button avail
      end if
    end if
    add 7 to released
    add 7 to avail
    add 7 to patrol
  end repeat

  if bbDate contains "AUG 26" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 372,0,512,342
  if bbDate contains "29" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 436,0,512,342
  if bbDate contains "SEPT 2" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 500,0,512,342
  if reset =1 then
    REPEAT WITH I =1 TO THE NUMBER OF BUTTONS
      SET  HILITE OF BUTTON I TO FALSE
    END REPEAT
    SET HILITE OF BUTTON 4 TO TRUE
    SET HILITE OF BUTTON 11 TO TRUE
    SET HILITE OF BUTTON 18 TO TRUE
    SET HILITE OF BUTTON 25 TO TRUE
    SET HILITE OF BUTTON 32 TO TRUE
    SET HILITE OF BUTTON 39 TO TRUE
    SET RECT OF CARD FIELD "HIDESQUADS" TO 308,0,512,342
    HIDE CARD FIELD "SHUTDOWN"
    repeat with i =166 to 171
      put empty into card field id i
    end repeat
  end if
end openCard
ON SHUTDOWN
  SHOW CARD FIELD "SHUTDOWN" OF CARD "D"             --NEW
END SHUTDOWN
on closecard
  hide card field "outofrange"
end closecard




-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=54 right=158 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  go to card "map"
end mouseUp



-- part 121 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=44 right=66 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 28 into releaseDate
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 28 into releaseDate
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 3 into avail
  put 28 into releaseDate
  RELEASE
END GO

















-- part 122 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=65 right=85 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go
  put 4 into standby
  if hilite of ME is true then
    set the hilite of  ME to false
    set the hilite of button standby to true
  end if
end go





-- part 123 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=116 top=84 right=108 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 124 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=107 right=132 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 2 into released
  put 3 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 4 into standby
  put "246,129" into coord     ---CHANGES
  put 74 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 4 into standby
  put "246,129" into coord     ---CHANGES
  put 74 into idplane


  set hilite of me to false
  set hilite of button standby to true

  hide button id idplane of card "map" --at coord

end go









-- part 125 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=144 right=172 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD54D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 74 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane,sorties
  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 74 into idplane
  put 166 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force   --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 2 into released
  put 3 into avail
  put 28 into releaseDate                                 --CHANGES
  put "D" into base
  put "246,129" into coord     ---CHANGES
  put 74 into idplane

  put 166 into sorties
  resultsa
end results









-- part 126 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=171 right=201 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "246,129" into coord     ---CHANGES
  put 74 into idplane

  put 5 into patrol
  put 6 into detail                                          --CHANGES

  land
end mouseUp





-- part 127 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=200 right=229 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 128 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=44 right=66 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 60 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 60 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 10 into avail                           --CHANGES
  put 60 into releaseDate
  RELEASE
END GO













-- part 129 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=65 right=85 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseup

on go

  put 11 into standby
  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if
end go





-- part 28 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=99 top=33 right=89 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate"
end mouseUp



-- part 130 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=180 top=84 right=108 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 131 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=107 right=132 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 9 into released
  put 10 into avail
  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 11 into standby
  put "261,129" into coord               --CHANGES
  put 75 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 11 into standby                                     --CHANGES
  put "261,129" into coord               --CHANGES
  put 75 into idplane
  set hilite of me to false
  set hilite of button standby to true

  hide button id IDPLANE of card "map" --at coord

end go








-- part 132 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=144 right=172 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD65D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 75 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 75 into idplane
  put 167 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force  --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 9 into released
  put 10 into avail
  put 60 into releaseDate                                 --CHANGES
  put "D" into base
  put "261,129" into coord               --CHANGES
  put 75 into idplane
  put 167 into sorties
  resultsa
end results
















-- part 133 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=171 right=201 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "261,129" into coord               --CHANGES
  put 75 into idplane
  put 12 into patrol
  put 13 into detail                                          --CHANGES

  land
end mouseUp





-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=200 right=229 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=44 right=66 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 61 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 61 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 17 into avail                           --CHANGES
  put 61 into releaseDate
  RELEASE
END GO




-- part 136 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=65 right=85 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 18 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 137 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=244 top=84 right=108 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=107 right=132 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 16 into released             -- CHANGES
  put 17 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 18 into standby
  put "261,114" into coord
  put 76 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 18 into standby
  put "261,114" into coord
  put 76 into idplane

  set hilite of me to false
  set hilite of button standby to true

  hide button id idplane of card "map"

end go












-- part 139 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=144 right=172 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD74D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 76 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 76 into idplane
  put 168 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 16 into released
  put 17 into avail
  put 61 into releaseDate                                 --CHANGES
  put "D" into base
  put "261,114" into coord
  put 76 into idplane
  put 168 into sorties
  resultsa
end results














-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=171 right=201 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "261,114" into coord
  put 76 into idplane
  put 19 into patrol
  put 20 into detail                                          --CHANGES

  land
end mouseUp




-- part 141 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=200 right=229 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 142 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=44 right=66 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 62 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 62 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 24 into avail                           --CHANGES
  put 62 into releaseDate
  RELEASE
END GO
















-- part 144 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=65 right=85 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 25 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 62 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=301 top=36 right=90 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate4
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate4"
end mouseUp



-- part 145 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=308 top=84 right=108 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 146 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=107 right=132 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 23 into released
  put 24 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 25 into standby
  put "231,114" into coord               --CHANGES
  put 77 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 25 into standby
  put "231,114" into coord               --CHANGES
  put 77 into idplane
  set hilite of button standby to true
  SET HILITE OF ME TO FALSE
  hide button id idplane of card "map"

end go









-- part 61 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=227 top=32 right=88 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate3
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate3"
end mouseUp



-- part 147 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=144 right=172 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD41D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 77 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 77 into idplane
  put 169 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 23 into released
  put 24 into avail
  put 62 into releaseDate                                 --CHANGES
  put "D" into base
  put "231,161" into coord
  put 77 into idplane
  put 169 into sorties
  resultsa
end results













-- part 148 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=171 right=201 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "231,114" into coord               --CHANGES
  put 77 into idplane
  put 26 into patrol
  put 27 into detail                                          --CHANGES

  land
end mouseUp





-- part 149 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=200 right=229 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 150 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=44 right=66 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 63 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 63 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 31 into avail                           --CHANGES
  put 63 into releaseDate
  RELEASE
END GO


















-- part 151 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=65 right=85 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 32 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 152 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=372 top=84 right=108 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 175 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=108 right=132 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 30 into released
  put 31 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 32 into standby
  put "231,129" into coord               --CHANGES
  put 78 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 32 into standby
  put "231,129" into coord               --CHANGES
  put 78 into idplane
  set hilite of me to false
  set hilite of button standby to true

  hide button id idplane of card "map"
end go





-- part 154 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=144 right=172 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ222D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 31 into avail
  put 32 into standby
  put 33 into patrol
  put 34 into detail                                         --CHANGES
  put 78 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 31 into avail
  put 32 into standby
  put 33 into patrol
  put 34 into detail                                         --CHANGES
  put 78 into idplane
  put 170 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 30 into released
  put 31 into avail
  put 63 into releaseDate                                 --CHANGES
  put "D" into base
  put "231,129" into coord               --CHANGES
  put 78 into idplane
  put 170 into sorties
  resultsa
end results














-- part 155 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=171 right=201 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "231,129" into coord               --CHANGES
  put 78 into idplane
  put 33 into patrol
  put 34 into detail                                          --CHANGES

  land
end mouseUp






-- part 156 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=200 right=229 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 157 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=43 right=67 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 37 into released
  put 109 into releaseDate

  if hilite of button released is true then
    show card field  id releaseDate at the mouseh, the mousev
  end if
end mouseDown
on mouseUp
  put 109 into releaseDate
  hide card field id releaseDate
end mouseUp

on go
  put 37 into released
  put 38 into avail
  put 109 into releaseDate

  subtract 1 from word 2 of line 2 of card field id releaseDate
  if word 2 of line 2 of card field id releaseDate is 1 then
    put DAY into word 3 of line 2 of card field id releaseDate
  else
    put DAYS into word 3 of line 2 of card field id releaseDate
    if word 2 of line 2 of card field id releaseDate <1 then
      put 4 into word 2 of line 2 of card field id releaseDate
      set hilite of button released to false
      set hilite of button avail to true
    end if
  end if
end go

















-- part 158 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=66 right=85 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 39 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go




-- part 167 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=254 right=307 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 159 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=436 top=84 right=107 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 160 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=106 right=132 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 37 into released             -- CHANGES
  put 38 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 39 into standby
  put "276,129" into coord
  put 79 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp
on go
  put 39 into standby
  put "276,129" into coord
  put 79 into idplane

  set hilite of me to false
  set hilite of button standby to true

  hide button id idplane of card "map"

end go







-- part 161 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=144 right=172 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ603D
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 38 into avail
  put 39 into standby
  put 40 into patrol
  put 41 into detail                                         --CHANGES
  put 79 into idplane
  put "D" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 38 into avail
  put 39 into standby
  put 40 into patrol
  put 41 into detail                                         --CHANGES
  put 79 into idplane
  put 171 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 37 into released
  put 38 into avail
  put 109 into releaseDate                                 --CHANGES
  put "D" into base
  put "276,129" into coord
  put 79 into idplane
  put 171 into sorties
  resultsa
end results












-- part 162 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=171 right=201 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "276,129" into coord
  put 79 into idplane
  put 40 into patrol
  put 41 into detail                                          --CHANGES

  land
end mouseUp




-- part 169 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=315 top=254 right=307 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 170 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=379 top=254 right=307 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 171 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=254 right=307 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 163 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=200 right=229 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 168 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=251 top=254 right=308 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 166 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=254 right=307 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 31 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=308 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hideSquads


-- part 109 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=426 top=35 right=90 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate6
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate6"
end mouseUp



-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=28 top=80 right=149 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: nono
----- HyperTalk script -----
on mouseUp
  hide card field id 16
end mouseUp



-- part 165 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=240 top=146 right=171 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: outOfRange
----- HyperTalk script -----
--on no
-- beep
-- show card field "outOfRange" at the mouseh, the mousev

--end no

on mouseUp
  hide card field "outOfRange"
end mouseUp


-- part 173 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=161 top=70 right=94 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: PUB
----- HyperTalk script -----
ON MOUSEUP
  HIDE card field "pub"
END MOUSEUP




-- part 174 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=232 top=133 right=175 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: whatRaid
----- HyperTalk script -----
on mouseUp
  hide card field "whatRaid"
end mouseUp


-- part 63 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=350 top=34 right=88 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate5
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate5"
end mouseUp



-- part 176 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=102 top=9 right=106 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 20
-- style flags: 8192
-- line height: 22
-- part name: shutdown


-- part 60 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=169 top=33 right=89 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate2
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate2"
end mouseUp



-- part contents for card part 16
----- text -----
You cannot order a RELEASED or AVAILABLE squadron on patrol.

-- part contents for card part 60
----- text -----
AVAILABLE
IN 1 DAY
PATCHING UP PLANES

-- part contents for card part 61
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES

-- part contents for card part 62
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES


-- part contents for card part 63
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES


-- part contents for card part 109
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES


-- part contents for card part 165
----- text -----
Too Far.

-- part contents for card part 28
----- text -----
AVAILABLE
IN 0 DAYS
PATCHING UP PLANES


-- part contents for card part 173
----- text -----
At the pub.

-- part contents for card part 174
----- text -----

What raid?

-- part contents for card part 176
----- text -----
DUE TO  BOMB DAMAGE
NORMAL OPERATIONS AT THIS AERODROME ARE TEMPORARILY DISRUPTED.
USE CAUTION.